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-- BcdDebug.Mesa Edited by Johnsson on April 13, 1978 8:59 AM 

DIRECTORY 

BcdControTDefs: FROM "bcdcontroldef s", 
BcdDefs: FROM "bcddefs". 
BcdTabDefs: FROM "bcdtabdef s" , 
BcdTreeDefs: FROM "bcdtreedef s", 
lODefs: FROM "iodefs", 
StringDefs: FROM "stringdef s". 
TableDefs: FROM "tabledefs". 
TimeDefs: FROM "timedefs"; 

DEFINITIONS FROM lODefs, BcdTreeDefs. BcdDefs; 

BcdDebug: PROGRAM 

IMPORTS BcdTabDefs, lODefs, TableDefs. TimeDefs 

EXPORTS BcdControlDefs - 

BEGIN 

tb, cxb, stb, mtb. etb, itb, ctb, sgb, ftb, ntb: TableDefs. TableBase; 
ssb: POINTER TO BcdDefs .PackedString; 

DebugNotify: TableDefs. TableNotifier ■ 
BEGIN 

tb <- base[treetype]; 
cxb ♦- base[cxtype]; 
stb *- base[sttype]; 
mtb *- base[mttype]; 
etb <- base[exptype]; 
itb <r base[imptype]; 
ctb *- base[cttype]; 
sgb ♦- base[sgtype]; 
ftb ♦- base[fttype]; 
ntb «- base[nttype]; 
ssb ♦- LOOPHOLE[base[sstype]]; 
RETURN 
END; 

Substring: TYPE » StringDefs. Substring; 

desc: StringDefs.SubStringDescriptor; 
ss: Substring « Qdesc; 

-- Utility Writes 

WriteSubString: PROCEDURE [ss: Substring] - 
BEGIN i: CARDINAL; 
FOR i IN [ss. offset. .ss.offset+ss. length) DO 

WriteChar[ss.base[i]] 

ENDLOOP; 
RETURN 
END; 

WriteName: PUBLIC PROCEDURE [n: NameRecord] ■ 
BEGIN 
ssd: StringDefs.SubStringDescriptor ♦- [ 

base: §ssb. string, offset: n, length: ssb.size[n]]; 
WriteSubString[0ssd]; 
RETURN 
END; 

WriteTime: PUBLIC PROCEDURE [t: TimeDefs. PackedTime] ■ 
BEGIN OPEN TimeDefs; 
s: STRING ♦- [20]; 
AppendDayTime[s,UnpackDT[t]]; 
WriteString[s]; 
RETURN 
END; 

WriteCR: PROCEDURE « BEGIN WriteChar[IODef s.CR] END; 

Indent: PROCEDURE [n: CARDINAL] - 
BEGIN 

THROUGH [l..n/8] DO WriteChar[IODefs . TAB] ENDLOOP; 
THROUGH [l..n MOD 8] DO WriteChar[' ] ENDLOOP; 
RETURN 
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END: 

Tab: PROCEDURE [n: CARDINAL] - 
BEGIN WriteCR[]; 
Indent[n]; 
RETURN 
END; 

-- tree printing 

WriteNodeName: PROCEDURE[n: NodeName] - 
BEGIN 
NodePrintName: ARRAY NodeName OF STRING - [ 

"list"L. "item"L, "source"L. "config"L. 

"assign"L. "plus"L, "then"L, "modu1e"L]; 
WriteString[NodePrintName[n]]; 
RETURN 
END; 

printsubtree: PROCEDURE [t: TreeLink, Tabation: CARDINAL] ■ 
BEGIN 

node: Treelndex; 
p: TreeXIndex; 
Tab[Tabation]; 
WITH v: t SELECT FROM 

hash «> printhti[v. index]; 

symbol => BEGIN printhti[(stb+v. index) .hti]; Printlndex[v. index] END; 

string => Printlndex[v. index]; 

subtree «> 

BEGIN node <- v. index; 
IF node = nullTreelndex 

THEN WriteString["<empty>"L] 
ELSE 

BEGIN OPEN (tb+node); 
WriteNodeName [name]; 
PrintIndex[node]; 

WriteString[" codelinks: "L]; WriteChar[IF codelinks THEN 'T ELSE 'F]; 
WriteString[" , sourceindex: "L]; WriteOctal[sourceindex]; 
p ♦- LOOPHOLE[node + TreeNodeSize]; 
IF name = list AND nsons ■ THEN 
UNTIL (tb+p).soni « endmark DO 

printsubtree[(tb+p) .soni , Tabation+2]; 
P ♦- P+1; 
ENDLOOP 
ELSE 

THROUGH [1.. nsons] DO 

printsubtree[{tb+p) .soni , Tabation+2]; 
P ^ P+1; 
ENDLOOP; 
END; 
END; 
ENDCASE; 
RETURN 
END; 

PrintTree: PUBLIC PROCEDURE [t: TreeLink] = 
BEGIN 

TableDefs,AddNotify[DebugNotify]; 
printsubtree[t, 0]; WriteCR[]; 
TableDefs.DropNotify[DebugNotify]; 
RETURN 
END; 

printhti: PROCEDURE [hti: BcdTabDef s .HTIndex] - 
BEGIN 

desc: StringDef s.SubStringDescriptor; 
s: Substring « @desc; 

IF hti - BcdTabDefs.HTNull THEN WriteString["(anonymous)"L] 
ELSE 

BEGIN 

BcdTabDef s.SubStringForHash[s, hti]; 

WriteSubString[s]; 

END; 
RETURN 
END; 
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contexts and semantic entries 

printContext: PROCEDURE [cxi: BcdTabDefs.CXIndex] ■« 
BEGIN OPEN BcdOefs, BcdTabDefs; 
sti: STIndex; 

Tab1eDefs.AddNotify[DebugNotify3; 

WriteString["Context: "Lj; WriteDecima1[L00PH0LE[cxi]]; 
FOR sti *- (cxb+cxi).link. (stb+sti) . 1 ink UNTIL sti « STNull DO 
OPEN stb+sti; 
Tab[2]i 

printhti[hti3; Printlndex[st"i]; 
IF filename THEN WriteString[" » filename"L]; 
IF assigned THEN WriteStringC" , assigned"L]; 
IF imported THEN 
BEGIN 

WriteString[", imported*'L]; 
IF impi § IMPNull THEN Printlndex[impi]; 
END; 
IF exported THEN WriteString[", exported"L]; 
WITH s:stb+sti SELECT FROM 
external •> 
BEGIN 

WriteString[", 6xternal["L]; 
WITH mrs.map SELECT FROM 
config »> 

BEGIN WriteStringC"config"L]; Printlndex[m.cti3 END; 
module ■> 

BEGIN WriteString["module"L3; Printlndex[m.mti] END; 
interface =»> 

BEGIN WriteString["interface"L]; Printlndex[m,expi] END; 
ENDCASE; 
WITH p:s SELECT FROM 
file -> 

BEGIN WriteString[", file"L3; Printlndex[p.fti3 END; 
instance «> 

BEGIN WriteString[", instance"L3; Printlndex[p.sti3 END; 
ENDCASE; 
WriteChar['33; 
END; 
local -> 
BEGIN 

WriteString[", locar'L3; 
PrintIndex[s.info3; 

WriteString[" context"L3; PrintIndex[s.context3; 
END; 
ENDCASE ; 
ENDLOOP; 
TableDefs.DropNotify[DebugNotify3; 
WriteCR[3; 
RETURN 
END; 

PrintSemanticEntries: PUBLIC PROCEDURE » 
BEGIN OPEN TableDefs, BcdTabDefs; 
cxi, cxLimit: CXIndex; 

cxLimit ♦- LOOPHOLE[TableDefs.TableBounds[cxtype3.size3; 
FOR cxi <- FIRST[CXIndex3, cxi+SIZE[CXRecord3 UNTIL cxi - cxLimit DO 

printContext[cxi3; WriteCR[3; 

ENDLOOP; 
RETURN 
END; 



-- various bed tables 

PrintBcd: PUBLIC PROCEDURE ■ 
BEGIN 

PrintConf igs[3; 

PrintImports[3; PrintExports[3; 
PrintModules[3; PrintFiles[3; 
RETURN 
END; 

PrintConfigs: PUBLIC PROCEDURE - 
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BEGIN 

cti: CTIndex <- FIRST[CTInd9x]; 

ctLimit: CTIndex » LOOPHOLE[TableDef s.Tab1eBounds[cttype].size]; 

WriteCRC]; 

Wr i test ring["Configurat ions :"L]; 

WriteCR[]; 

UNTIL cti - CtLimit DO 

PrintConf ig[cti]; 

cti ^ cti + SIZE[CTRecord]; 

ENDLOOP; 
WriteCRC]; 
RETURN 
END; 

PrintConf ig: PUBLIC PROCEDURE [cti: CTIndex] - 
BEGIN OPEN ctb+cti; 

TableDefs.AddNotify[DebugNotify]; 
Tab[2]: 

WriteName[name]; Printlndex[cti]; 
IF namedinstance THEN 

BEGIN 

WriteString[", instance: "L]; 

WriteNameFromTab1e[[conf ig[cti]]]; 

END; 
WriteString[", file: "L]; 
PrintFileName[f ile]; Printlndex[f ile]; 
IF config § CTNull THEN 

BEGIN WriteString[". parent: "L]; 

WriteName[(ctb+conf ig) .name]; 

PrintIndex[conf ig]; 

END; 
IF control # MTNull THEN 

BEGIN WriteString[", control: "L]; 

WriteName[(mtb+control).name]; 

PrintIndex[control]; 

END; 
WriteCR[]; 

TableDefs.DropNotify[DebugNotify]; 
RETURN 
END; 

Printlmports: PUBLIC PROCEDURE » 
BEGIN 

iti: IMPIndex <r FIRST[IMPIndex]; 

impLimit: IMPIndex » LOOPHOLE[TableDef s .TableBounds[imptype] . size] ; 
WriteCRC]; 

Wr iteStringC" Imports :"L]; 
WriteCRC]; 
UNTIL iti » impLimit DO 

PrintlmportCiti]; 

iti ♦- iti + SIZEClMPRecord]; 

ENDLOOP; 
WriteCRC]; 
RETURN 
END; 

Printlmport: PUBLIC PROCEDURE Citi: IMPIndex] - 
BEGIN OPEN itb+iti; 

TableDefs.AddNotifyCDebugNotify]; 
TabC2]: 

WriteNameCname]; PrintlndexCiti]; 
SELECT port FROM 

module «> WriteStringC" (module)"L]; 

interface «> WriteStringC" {interface)"L]; 

ENDCASE; 
IF namedinstance THEN 

BEGIN 

WriteStringC", instance: "L]; 

WriteNameFromTableCCi'^PO'^tCiti]]]; 

END; 
WriteStringC". file: "L]; 
PrintFileNameCfile]; PrintlndexCf ile]; 
WriteStringC", gfi: "L]; 
WriteOecimalCgf i]; 
WriteStringC", ngfi: "L]; 
WriteDecimalCngf i]; 
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WriteCR[]; 

Tab1eDefs.DropNotify[D0bugNotify]; 

RETURN 

END; 

PrintExports: PUBLIC PROCEDURE - 
BEGIN 

eti: EXPIndex ^ FIRST[EXPIndex]; 

expLimit: EXPIndex » LOOPHOLE[Tab1eDefs.TableBounds[exptyp8].siz0]; 
WriteString["Exports:"L]; 
WriteCR[]; 
UNTIL eti - expLimit DO 

PrintExport[0ti]; 

eti ♦- eti + (etb+eti) .size + SIZE[EXPRecord]; 

ENDLOOP; 
WriteCR[]; 
RETURN 
END; 

PrintExport: PUBLIC PROCEDURE [eti: EXPIndex] ■ 
BEGIN OPEN etb+eti; 
i: CARDINAL; 

TableDefs.AddNotify[DebugNotify]; 
Tab[2]; 

WriteNafne[name]; Printlndex[eti]; 
IF port - module THEN WriteString[" [modu1e]"L]; 
IF namedinstance THEN 

BEGIN 

WriteString[", instance: "L]; 

WriteNameFromTable[[export[eti]]]; 

END; 
WriteStringC", file: *'L]; 
PrintFileName[f ile]; Printlndex[f ile]; 
WriteString[", size: "L]; 
WriteDecimal[size] ; 
WriteString[", links:"L3; 
FOR i IN [0..size) DO 

IF i MOD 8 = THEN Tab[4] ELSE WriteChar[' ]; 

PrintControlLink[links[i]3; 

IF i+i # size THEN WriteChar[ ' . ]; 

ENDLOOP; 
WriteCR[]; 

TableDefs.DropNotify[DebugNotify]; 
RETURN 
END; 

PrintModules: PUBLIC PROCEDURE ■ 
BEGIN 

mti: MTIndex <- FIRST[MTIndex]; 

mtLimit: MTIndex - LO0PH0LE[TableDef s.TableBounds[mttype].size]; 
WriteCR[]; 

WriteString["Modules:"L]; 
WriteCR[]; 
UNTIL mti = mtLimit DO 

PrintModule[mti]; 

mti <- mti + SIZE[MTRecord]+(mtb+mti) .frame. length; 

ENDLOOP; 
WriteCR[3; 
RETURN 
END; 

PrintModule: PUBLIC PROCEDURE [mti: MTIndex] - 
BEGIN OPEN mtb+mti; 
i: CARDINAL; 

TableDefs.AddNotify[DebugNotify]; 
Tab[2]; 

WriteName[name]; Printlndex[mti]; 
IF namedinstance THEN 

BEGIN 

WriteString["instance: "L]; 

WriteNameFromTable[[module[mti]]]; 

END; 
WriteString[", file: "L]; 
PrintFileName[file]; Printlndex[f ile]; 
WriteString[", links: "L]; 
WriteString[IF links-frame THEN "frame" ELSE "cod0"L]; 
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IF config # CTNull THEN 

BEGIN 

WriteString[". config: "L]; 

WriteName[(ctb+conf ig) .name]; 

PrintIndex[conf ig]; 

END; 
WriteString[". fsi: "L]; WriteDecima1[f si]; 
WriteStringf", framesize: "L]; Writ8Decimal[framesize]; 
WriteString[". gfi: "L]; WriteDecimalCgf i] ; 
WriteString[". ngfi: "L]; WriteDecimalCngf i] ; 
Tab[4]; 

WriteString["code: "L]; PrintSegment[code.sgi]; 
WriteStringE", offset: "L]; Writ80ctal[code.off set]; 
WriteString[", length: "L]; WriteOctal[code. length]; 
IF code.l inkspace THEN WriteString [", space available for links"L]; 
Tab[4]; 

WriteString["symbols: "L]; PrintSegment[sseg]; 
BEGIN OPEN frame; Tab[4]; 

WriteString[", frame length: "L]; WriteDecimal[length]; 

WriteString[", control links:"L]; 

FOR i IN [0.. length) DO 

IF i MOD 8 - THEN Tab[6] ELSE WriteChar[' ]; 

PrintControlLink[frag[i]]; 

IF i+1 # length THEN WriteChar[ ' . ]; 

ENDLOOP; 

END; 
WriteCR[]; 

TableDefs.DropNotify[DebugNotify]; 
RETURN 
END; 

PrintSegment: PUBLIC PROCEDURE [sgi: SGIndex] ■ 
BEGIN OPEN sd: sgb+sgi; 

PrintFileName[sd.f ile]; WriteString[" [base: "L]; 
WriteDecimal[sd.base]; WriteString[" , pages: "L]; 
WriteDecimalfsd. pages]; 
IF sd.extraPages ft THEN 

BEGIN WriteChar['+]; WriteDecimal[sd.extraPages] END; 
WriteChar[']]; 
RETURN 
END; 

PrintFiles: PUBLIC PROCEDURE - 
BEGIN 

fti: FTIndex <- FIRST[FTIndex]; 

ftLimit: FTIndex = LOOPHOLE[TableDef s .TableBounds[f ttype].size] ; 
WriteCR[]; 

WriteString["Files:"L]; 
WriteCRC]; 
UNTIL fti - ftLimit DO 

PrintFile[fti]; 

fti <- fti + SIZE[FTRecord]; 

ENDLOOP; 
WriteCR[]; 
RETURN 
END; 

PrintFile: PUBLIC PROCEDURE [fti: FTIndex] ■ 
BEGIN OPEN ftb+fti; 

TableDefs.AddNotify[DebugNotify]; 
Tab[2]; 

WriteName[name]; Printlndex[fti]; 

IF version, time = [0,0] THEN WriteString ["{Null Version)"L] 
ELSE 

BEGIN 

WriteString[", time: "L]; 

WriteTime[ vers ion. time]; 

WriteString[", processor: "L]; 

PrintMachine[ vers ion]; 

END; 
WriteCR[]; 

TableDefs.DropNotify[DebugNotify]; 
RETURN 
END; 
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-- Utility Prints 

PrintControlLink: PROCEDURE [link: ControlLink] - 
BEGIN 

map: ARRAY ControlLinkTag OF CHARACTER « ['0, • 1. '2. '3] ; 
WriteChar['[]; WriteDecimal [1 ink.gf i]; 
WriteChar[' ,]; WriteDecimal [1 ink. ep] ; 
WriteChar[' ,]; WriteChar[map[l ink. tag]]; 
WriteChar[']]; RETURN 
END; 

PrintMachine: PROCEDURE [stamp: BcdDef s.VersionStamp] ■ 
BEGIN 

octal: NumberFormat - [8, FALSE. FALSE. 1]; 
WriteNumber[stamp.net, octal]; 
WriteChar['#]; 

WriteNumber[stamp.host, octal]; 
WriteChar['/^]; 

IF stamp. zapped THEN WriteString[" zappedl"L]; 
RETURN 
END; 

PrintFileName: PROCEDURE [fti: FTIndex] ■ 
BEGIN 
SELECT fti FROM 

FTNull «> WriteString["(null)"L]; 

FTSelf «> WriteString["(self)"L]; 

ENDCASE => WriteName[(ftb+fti).name]; 
RETURN 
END; 

Printlndex: PROCEDURE [index: UNSPECIFIED] - 
BEGIN 

WriteChar['[]; 

IF index = TableDef s.TableLimit-1 THEN WriteString["Nun "L] 
ELSE WriteDecimal[index]; 
WriteChar[']]; 
RETURN 
END; 

WriteNameFromTable: PROCEDURE [n: Namee] ■ 
BEGIN OPEN TableDefs; 
nti: NTIndex; 

ntLimit: NTIndex « LOOPHOLE[TableBounds[nttype]. size]; 
FOR nti ^ FIRST[NTIndex], nti + SIZE[NTRecord] UNTIL nti « ntLimit DO 
IF (ntb+nti).item ■ n THEN 

BEGIN WriteName[(ntb+nti).name]; RETURN END; 
ENDLOOP; 
RETURN 
END; 



END. 



